unit AgendaDeTurnos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ExtCtrls, XPMan, ToolWin, ComCtrls, Grids, DBGrids,
  QuickRpt, QRCtrls, StdCtrls, Buttons, grimgctrl;

type
  TfrmAgendaDeTurnos = class(TfrmBase)
    QuickRep2: TQuickRep;
    QRBand2: TQRBand;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRBand3: TQRBand;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRHRule11: TQRHRule;
    QRHRule12: TQRHRule;
    QRHRule13: TQRHRule;
    QRHRule14: TQRHRule;
    QRHRule15: TQRHRule;
    QRHRule16: TQRHRule;
    QRHRule17: TQRHRule;
    QRHRule18: TQRHRule;
    QRHRule19: TQRHRule;
    QRLabel22: TQRLabel;
    QRDBText18: TQRDBText;
    QRHRule20: TQRHRule;
    procedure BitBtn1Click(Sender: TObject);
    procedure QuickRep1Preview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAgendaDeTurnos: TfrmAgendaDeTurnos;

implementation

uses Datos;

{$R *.dfm}

procedure TfrmAgendaDeTurnos.BitBtn1Click(Sender: TObject);
begin
  inherited;
  QuickRep2.Preview;
end;

procedure TfrmAgendaDeTurnos.QuickRep1Preview(Sender: TObject);
begin
  inherited;
  QRLabel13.Caption:=DateToStr(Now);
end;

end.
